home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / lang / nA-Iaiov0.7.lha / Iaio_v0.7ﾟ / Examples / scroll / scroll.ajo < prev    next >
Text File  |  2002-04-21  |  664b  |  27 lines
  1.  
  2. onloaderror[error]
  3.  
  4. openscreen[0]=350/240/1/l/topaz.font/;
  5. setcol[0,0,0,0,0]:setcol[0,1,255,255,255]
  6. loadbank[4,0]=work:+jajo_house/dealer_0.7/iaio_v0.7/examples/scroll/scroll.txt
  7. delay[100]
  8. setpen[0,1,0,0,0] : set[6,$90]
  9.  
  10. -loop:
  11. add[5,1] : add[6,1] : sub[7,1] : setcol[0,1,!5,!6,!7] : onlmb[exit]
  12. scroll[0,0,223,350,240,1,0] : add[2,1] : case[2,8,ustaw]
  13. -go:
  14. delay[1] : jump[loop]
  15.  
  16. -ustaw:
  17. getbyte[4,0,!1] : add[1,1] : case[0,10,scrollrestart]
  18. move[0,340,232] : putbyte[0,0] : set[2,0] : jump[go]
  19.  
  20. -scrollrestart:
  21. set[1,0] : jump[ustaw]
  22.  
  23. -error:
  24. print=UWAGA: powinienes zmienic linie dostepu do pliku z textem scrolla!
  25. -exit:
  26. freebank[4] : closescreen[0] : quit
  27.